(require :asdf)
(asdf:operate 'asdf:load-op :roll)
(load "/Users/garaemon/prog/roll/src/lisp/socklib/socklib.lisp")
(in-package :roll/socklib)

(defmethod read-proc ((server <socket-server>) socket mutex)
  (let ((line (read-line (socket-stream socket) nil)))
    (if line
        (progn
          (format t "~A~%" line)
          (format-to-socket socket "messagre from server~%")
          t)
        nil)))

(defun main nil
  (let ((server (make-instance '<socket-server>)))
    (start-server server)
    )
  )

